uses JPEG;

var J     :TJpegImage;
        bmp:TBitmap;

begin
   J:=TJpegImage.Create;
   J.LoadFromFile('ALTHEN.JPG');

   bmp:=TBitmap.Create;
   bmp.width:=J.width;
   bmp.height:=J.height;

   bmp.Canvas.Draw(0,0,J);

   Image1.Picture.Bitmap:=bmp;
   //...
   bmp.Free;
   J.Free;
end;
